home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-4 / background_4102.txt < prev    next >
Text File  |  1990-04-06  |  7KB  |  276 lines
  1. -- background: 4102 from stack: in.0-4
  2. -- bmap block id: 4395
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: UserSupport
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=474 top=19 right=48 bottom=506
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 178 / 178
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: mainMenuIcon
  20. ----- HyperTalk script -----
  21. -- This handler goes back to the main menu of the Intro stack.
  22. on mouseUp
  23.   visual dissolve
  24.   go cd "go to main menu" of stack "Intro to HyperCard 2.0"
  25. end mouseUp
  26.  
  27.  
  28.  
  29. -- part 3 (button)
  30. -- low flags: 00
  31. -- high flags: 2000
  32. -- rect: left=474 top=195 right=224 bottom=506
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 24471 / 24471
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: MapBtn
  41. ----- HyperTalk script -----
  42. -- This handler goes back to the Map stack.
  43. --
  44. -- Globals:
  45. --    DisSpeed - the speed to use for visual effects
  46. --    CameFrom - tells the Map where the user came from
  47. --    MapMode  - tells the Map whether to use graphic or text mode
  48. on mouseUp
  49.   global DisSpeed, CameFrom, MapMode
  50.   set the hilite of me to true
  51.   lock Screen
  52.   set the hilite of me to false
  53.   put "section 3:" into CameFrom
  54.   put "section 3:" into whichCd
  55.   if MapMode is "graph" then
  56.     go to cd whichCd of stack "‚Ä¢HC 2.0-3"
  57.     HiliteMap
  58.   else
  59.     go to cd "indexmap" of stack "‚Ä¢HC 2.0-3"
  60.   end if
  61.   unlock screen with DisSpeed
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 4 (button)
  67. -- low flags: 00
  68. -- high flags: 2000
  69. -- rect: left=474 top=235 right=264 bottom=506
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 10112 / 10112
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: HomeBtn
  78. ----- HyperTalk script -----
  79. -- This handler lets the user quit or go home.
  80. -- It goes to cd "hi" of the Intro stack first to reset things.
  81. on mouseUp
  82.   answer "What do you want to do?" with "Cancel" or "Quit" or "Go Home"
  83.   if it is not "Cancel" then
  84.     lock screen
  85.     global CameFrom,stakName
  86.     put the short name of this cd into CameFrom
  87.     put the short name of this stack into stakName
  88.     go to cd "hi" of stack "Intro to HyperCard 2.0"
  89.     if it is "Quit" then
  90.       put "doMenu " & quote & "Quit HyperCard" & quote into myMsg
  91.       send myMsg to this cd
  92.     else if it is "Go Home" then send "doMenu home" to this cd
  93.   end if
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 5 (button)
  99. -- low flags: 00
  100. -- high flags: 2000
  101. -- rect: left=474 top=58 right=86 bottom=505
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 5553 / 5553
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Section
  110. ----- HyperTalk script -----
  111. -- This handler goes back to the appropriate menu of the "Intro" stack.
  112. on mouseUp
  113.   visual dissolve
  114.   put "section" && last char of the icon of me & ":" into SubCd
  115.   go to cd SubCd of "Intro to HyperCard 2.0"
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 6 (field)
  121. -- low flags: 81
  122. -- high flags: 0004
  123. -- rect: left=8 top=165 right=317 bottom=140
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 174
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Feedback
  132.  
  133.  
  134. -- part 9 (field)
  135. -- low flags: 01
  136. -- high flags: 0000
  137. -- rect: left=367 top=26 right=48 bottom=445
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 0
  141. -- font id: 174
  142. -- text size: 14
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: 
  146.  
  147.  
  148. -- part 24 (button)
  149. -- low flags: 00
  150. -- high flags: 2000
  151. -- rect: left=476 top=278 right=309 bottom=507
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 3720 / 3720
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Next
  160. ----- HyperTalk script -----
  161. -- The "goNext" handler is in the stack script.
  162. on mouseUp
  163.   goNext
  164. end mouseUp
  165.  
  166.  
  167.  
  168. -- part 25 (button)
  169. -- low flags: 00
  170. -- high flags: 2000
  171. -- rect: left=473 top=308 right=337 bottom=501
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 14077 / 14077
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: Prev
  180. ----- HyperTalk script -----
  181. -- The "goPrev" handler is in the stack script.
  182. on mouseUp
  183.   goPrev
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 19 (field)
  189. -- low flags: 81
  190. -- high flags: 0007
  191. -- rect: left=105 top=293 right=342 bottom=206
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 0
  195. -- font id: 3
  196. -- text size: 9
  197. -- style flags: 0
  198. -- line height: 10
  199. -- part name: AllFeed
  200.  
  201.  
  202. -- part 30 (field)
  203. -- low flags: 01
  204. -- high flags: 2000
  205. -- rect: left=139 top=54 right=164 bottom=450
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 0
  209. -- font id: 174
  210. -- text size: 14
  211. -- style flags: 0
  212. -- line height: 15
  213. -- part name: theText
  214.  
  215.  
  216. -- part 31 (field)
  217. -- low flags: 01
  218. -- high flags: 0000
  219. -- rect: left=157 top=156 right=294 bottom=450
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 0 / 0
  222. -- text alignment: 0
  223. -- font id: 174
  224. -- text size: 12
  225. -- style flags: 0
  226. -- line height: 12
  227. -- part name: answerFld
  228.  
  229.  
  230. -- part 32 (button)
  231. -- low flags: 00
  232. -- high flags: C000
  233. -- rect: left=134 top=23 right=46 bottom=332
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 174
  238. -- text size: 14
  239. -- style flags: 256
  240. -- line height: 18
  241. -- part name: User Support Self-Assessment
  242. ----- HyperTalk script -----
  243. -- This handler does some of the flying button animation.
  244. -- "originCdName" is used by the bg script to determine
  245. -- where to go, as well as in the flying btn animation
  246. on mouseUp
  247.   global OriginCdName,TopSelBtn
  248.  
  249.   lock screen
  250.   put the rect of me into BtnRect
  251.   put the short name of me into BtnName
  252.   put the icon of bg btn "Section" into iconID
  253.   go to cd "interm2" of "Intro to HyperCard 2.0"
  254.  
  255.   set the rect of bg btn id 16 to BtnRect
  256.   set the name of bg btn id 16 to BtnName
  257.   set the icon of bg btn "section" to iconID
  258.  
  259.   unlock screen with visual dissolve
  260.   set the top of bg btn id 16 to TopSelBtn
  261.  
  262.   -- go to interm1 cd, prepare it and reveal it
  263.   lock screen
  264.   go to cd "interm1"
  265.   put fld "title" of cd OriginCdName into fld "title"
  266.   set the name of btn id 1 to the short name of me
  267.   set the rect of btn id 1 to BtnRect
  268.   set the top of btn id 1 to TopSelBtn
  269.   unlock screen with dissolve
  270.  
  271.   -- go to the section cd
  272.   visual dissolve
  273.   go to cd OriginCdName
  274. end mouseUp
  275.  
  276.